home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / scheme / pcscheme / geneva / pcscheme.exe / BIN / NEWWIN.FSL < prev    next >
Encoding:
Text File  |  1993-11-02  |  1.4 KB  |  38 lines

  1. #!fast-load 4.0 MINIBOOT (sources\s\newwin.s)
  2. h001E 03B9
  3. lx0ANEW-WINDOWn
  4. x0ANEW-WINDOW
  5. lx05TITLElx04RESTn
  6. x05TITLE
  7. x04REST
  8. x0ANO-DISPLAY
  9. lx07MINROWSlx07MINCOLSlx0ANO-DISPLAYn
  10. x07MINROWS
  11. x07MINCOLS
  12. i00DA
  13. i00D9
  14. c4B
  15. c48
  16. c4D
  17. c50
  18. c0D
  19. x0BMAKE-WINDOW
  20. s0000
  21. x10WINDOW-SET-SIZE!
  22. x14WINDOW-REVERSE-TEXT!
  23. x0BOUTPUT-PORT
  24. x13WINDOW-GET-POSITION
  25. x0FWINDOW-GET-SIZE
  26. x02#T
  27. x14WINDOW-SET-POSITION!
  28. x0CWINDOW-CLEAR
  29. x0CWINDOW-POPUP
  30. x12WINDOW-SET-CURSOR!
  31. x13WINDOW-POPUP-DELETE
  32. x09READ-CHAR
  33. t▌<■=;▌ @ ë  $ Cë$g▌ <7    á
  34. á    
  35.    4  4    4,    ,4@,,4A004@48
  36. P8484A8< P<8<8<
  37.  D H DR HL8RL0¥ @@@ADDL@PLPDPP 
  38. 0q @LLAPPXTPRTXXTQXX\XLRX\\XQ\\ 4  4 4`ê`"`4`ê`; 0 ;       4    4     │      40s    4e")Q `"Q  !t e"&Q `"Q  !A e")Q\"Q !  e"&Q\"Q !╪■e"@     4    ╘xO
  39.     │O;"7@CI     4     ╒ 5    4áⁿ└ⁿⁿ"
  40.       5;
  41. z
  42.